;                   OAG Script File
;                Please see READ.ME for details
;LOGON TO OAG THRU TELENET
jump begin
label PLEASE
clear
mess      PLEASE TRY AGAIN.  OAG IS NOT RESPONDING.
.
bye
abort 
label begin
wait delay 20
reply @
wait delay 10
reply |
wait delay 10
reply |
whenever "TERMINAL=" reply |
wait char "@"
reply C OAG1136;|
wait char ">"
reply ID *** ID ***|
wait string "->"
otimeout 200 jump PLEASE
